home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / DEMOS / THEDEMO / !The Demo / !RunImAGE (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-01-12  |  6KB  |  200 lines
  1.  > !RunImage
  2.  > Written by Zynx/ArcEmpire
  3.  > -----------------------------------------------------------------------
  4.  > This Mega Demo was coded entirely by me, with graphics done by Zeus/ArcEmpire.
  5.  > There is no music in this demo, only in the HIDDEN PART, which you should be able
  6.  > find with a little work... -Hint : 'The Last Capital is depressed...'
  7.  > I have not included any tunes, coz we have NO MUSICAL MEMBERS, so if any of you
  8.  > would like to contribute, or join ArcEmpire as musicians please contact me!
  9.  > Music for the hidden part by 'Dr. Awesome' ... -A great Amiga musician :-)
  10.  > I'd like to thank the following people for moral- & spiritual support :
  11.  > -----------------------------------------------------------------------
  12.  > Equex, Badger, Zeus, MagnaTron, Forza, Inferior Software,
  13.  > Epics, Martin (PARAtex), Armaniac, Andromeda (Amiga),
  14.  > ArmStrong, Odd, Claus, Knut, Terje, Are, Trygve, Henrik, Oddvar,
  15.  > The Shamen, Yello, Mike Oldfield, Jarre, Vangelis, The KLF, U 96,
  16.  > Puser'n, Puseline, Lorissa, Julie, Tammy, Synthia, Sandra & Cassandra
  17.  > -----------------------------------------------------------------------
  18.  > Contact me here:     snail : Eivind Hagen
  19.  >                              Drammensvn 44
  20.  >                              N-3600 KONGSBERG
  21.  >                              NORWAY
  22.  >                      email : eivind@samson.kih.no
  23.  > -----------------------------------------------------------------------
  24. /10;" ";
  25. Min_SlotSize=32*1024
  26.  FileName 512
  27.  RData 256
  28.  Buffer 4096
  29.  TaskId 4
  30. $TaskId="TASK"
  31.  "Wimp_Initialise",200,!TaskId,"Mega Demo" 
  32.  OS_Version,My_Task
  33. _ErrorBox:
  34.  "OS_ReadDynamicArea",0 
  35.  ,OrgSize_0
  36.  "OS_ReadDynamicArea",1 
  37.  ,OrgSize_1
  38.  "OS_ReadDynamicArea",2 
  39.  ,OrgSize_2
  40.  "OS_ReadDynamicArea",3 
  41.  ,OrgSize_3
  42.  "OS_ReadDynamicArea",4 
  43.  ,OrgSize_4
  44.  "OS_ReadDynamicArea",5 
  45.  ,OrgSize_5
  46.  "OS_ReadDynamicArea",2 
  47.  ,ScreenSize
  48.  "Wimp_SlotSize",-1,-1 
  49.  CurrentSlot,NextSlot,FreeSlot
  50.  "Wimp_SlotSize",-1,0 
  51.  CurrentSlot,NextSlot,FreeSlot
  52.  ScreenSize > 320*1024 
  53.  "OS_ChangeDynamicArea",2,(320*1024-ScreenSize)
  54.  "Wimp_SlotSize",-1,0 
  55.  CurrentSlot,NextSlot,FreeSlot
  56.  "Wimp_SlotSize",-1,FreeSlot 
  57.  CurrentSlot,NextSlot,FreeSlot
  58.  "Wimp_SlotSize",-1,-1 
  59.  CurrentSlot,NextSlot,FreeSlot
  60.  NextSlot < 1248*1024 
  61. @1   
  62.  "XOS_ChangeDynamicArea",0,-16*1024*1024
  63. A>   
  64.  "Wimp_SlotSize",-1,0 
  65.  CurrentSlot,NextSlot,FreeSlot
  66. BN   
  67.  "Wimp_SlotSize",-1,NextSlot+FreeSlot 
  68.  CurrentSlot,NextSlot,FreeSlot
  69.  "Wimp_SlotSize",-1,-1 
  70.  CurrentSlot,NextSlot,FreeSlot
  71.  NextSlot < 1248*1024 
  72. G1   
  73.  "XOS_ChangeDynamicArea",1,-16*1024*1024
  74. H>   
  75.  "Wimp_SlotSize",-1,0 
  76.  CurrentSlot,NextSlot,FreeSlot
  77. IN   
  78.  "Wimp_SlotSize",-1,NextSlot+FreeSlot 
  79.  CurrentSlot,NextSlot,FreeSlot
  80.  "Wimp_SlotSize",-1,-1 
  81.  CurrentSlot,NextSlot,FreeSlot
  82.  NextSlot < 1248*1024 
  83. N1   
  84.  "XOS_ChangeDynamicArea",3,-16*1024*1024
  85. O>   
  86.  "Wimp_SlotSize",-1,0 
  87.  CurrentSlot,NextSlot,FreeSlot
  88. PN   
  89.  "Wimp_SlotSize",-1,NextSlot+FreeSlot 
  90.  CurrentSlot,NextSlot,FreeSlot
  91.  "Wimp_SlotSize",-1,-1 
  92.  CurrentSlot,NextSlot,FreeSlot
  93.  NextSlot < 1248*1024 
  94. U1   
  95.  "XOS_ChangeDynamicArea",4,-16*1024*1024
  96. V>   
  97.  "Wimp_SlotSize",-1,0 
  98.  CurrentSlot,NextSlot,FreeSlot
  99. WN   
  100.  "Wimp_SlotSize",-1,NextSlot+FreeSlot 
  101.  CurrentSlot,NextSlot,FreeSlot
  102.  "Wimp_SlotSize",-1,-1 
  103.  CurrentSlot,NextSlot,FreeSlot
  104.  NextSlot < 1248*1024 
  105. \1   
  106.  "XOS_ChangeDynamicArea",5,-16*1024*1024
  107. ]>   
  108.  "Wimp_SlotSize",-1,0 
  109.  CurrentSlot,NextSlot,FreeSlot
  110. ^N   
  111.  "Wimp_SlotSize",-1,NextSlot+FreeSlot 
  112.  CurrentSlot,NextSlot,FreeSlot
  113.  "Wimp_SlotSize",-1,-1 
  114.  CurrentSlot,NextSlot,FreeSlot
  115.  NextSlot < 1248*1024 
  116.  ErrorBlock 32
  117.    ErrorBlock!0=0
  118. e+   $(ErrorBlock+4)="Not enough memory!"
  119. f2   
  120.  "Wimp_ReportError",ErrorBlock,
  121. (3),"CPU"
  122. _Restore_Dynamic_Areas
  123. _Kamikaze
  124.  "Wimp_StartTask","Run <TheDemo$Dir>.Loader"
  125. _Restore_Dynamic_Areas
  126. _Kamikaze    
  127. q*   
  128.  "Wimp_Poll",0,RData 
  129.  ReasonCode
  130. _PollHandler
  131. _Restore_Dynamic_Areas
  132. x.   
  133.  "XOS_ReadDynamicArea",0 
  134.  ,ModSize_0
  135. y9   
  136.  "XOS_ChangeDynamicArea",0,(OrgSize_0-ModSize_0)
  137. {.   
  138.  "XOS_ReadDynamicArea",1 
  139.  ,ModSize_1
  140. |9   
  141.  "XOS_ChangeDynamicArea",1,(OrgSize_1-ModSize_1)
  142. ~.   
  143.  "XOS_ReadDynamicArea",2 
  144.  ,ModSize_2
  145.  "XOS_ChangeDynamicArea",2,(OrgSize_2-ModSize_2)
  146.  "XOS_ReadDynamicArea",3 
  147.  ,ModSize_3
  148.  "XOS_ChangeDynamicArea",3,(OrgSize_3-ModSize_3)
  149.  "XOS_ReadDynamicArea",4 
  150.  ,ModSize_4
  151.  "XOS_ChangeDynamicArea",4,(OrgSize_4-ModSize_4)
  152.  "XOS_ReadDynamicArea",5 
  153.  ,ModSize_5
  154.  "XOS_ChangeDynamicArea",5,(OrgSize_5-ModSize_5)
  155. _PollHandler
  156.    RC=ReasonCode
  157.  ReasonCode 
  158.       
  159.       
  160.       
  161.       
  162.       
  163.       
  164.       
  165.       
  166.       
  167.       
  168.       
  169.       
  170.       
  171.       
  172.       
  173.       
  174.       
  175. )      
  176. _Message(RData)        :
  177. )      
  178. _Message(RData)        :
  179.       
  180. _Message(Block)
  181.    Block_Size=Block!0
  182.    Task_Handle=Block!4
  183.    Sender_Ref=Block!8
  184.    Reciever_Ref=Block!12
  185.    Action_Code=Block!16
  186.  Action_Code 
  187. 1      
  188.  "Wimp_CloseDown",My_Task,!TaskId
  189.       
  190.  &400C3:
  191. _Kamikaze
  192.  "Wimp_CloseDown":
  193.  ---------------------------------------------------------------------
  194. _ErrorBox
  195.    !Buffer=
  196. ,   $(Buffer+4)=
  197. $+" at line "+
  198. /10)+
  199.  "Wimp_ReportError",Buffer,1,"Backup Manager"
  200.